110- 



ENTRY OF RLE NUMBER AND/OR OTHER 
IDENTIFICATION INFO, AND AMOUNT FOR 
CHECK, INTO REMOTE WORKSTATION 
AT LAW FIRM 



114 

1 



CHECK PRINTED ON WORKSTATION 
PRINTER, AND MAIUED TO PATENT 
AND TRADEMARK OFFICE 



PTO RECEIVES 
CHECK AND CASHES 
AGAINST BANK ACCOUNT 



120 
_J 



CENTRAL OFFICE 
DEPOSITS MONEY 
IN ACCOUNT OR 
OTHERWISE INSURE 
ADEQUATE FUNDS 
PRESENT 



126 
J 




INFORMATION REGARDING 
CHECKS PRINTED UPLOADED 
TO CENTRAL OFFICE 
BY REMOTE WORKSTATION 



122- 



ELECTRONIC INVOICE GENERATED ' 
AND TRANSMITTED TO LAW FIRM 
ACCOUNTING SYSTEM; PAPER 
IMVOICE ALSO GENERATED 
BY WORKSTATION 



BANK SENDS TO 
CENTRAL OFFICE 

MONTHLY STATEMENT 
OF TRANSACTIONS 

TO CENTRAL OFFICE 




CENTRAL OFFICE RECONCILES 

MONTHLY STATEMENT WITH 
INFORMATION UPLOADED BY WS 



FIG. 1A 
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® 



RECONCILIATION 
OK? 



134 
_J> 



YES 



CENTRAL OFFICE 
SENDS BILL TO 
LAW FIRM FOR 
MONEY LOANED 
TO CLIENTS 



136 
_Ji 



BILL DUE 
IN 90 DAYS OR 
OTHER PERIOD 



146 



CENTRAL OFFICE 
RECEIVES CLIENT'S 
PAYMENT FROM 
LAW FIRM 



NO 



132 
i 



EXAMINE 
SITUATION AND 
CORRECT 
ERRORS 



138 
1 



SEND INVOICE 
TO CLIENT (BY 
LAW FIRM) AT 
END OF MONTH 
OR OTHER PERIOD 



140 




INVOICE DUE | 
IN 30 DAYS OR ' 
OTHER PERIOD 


142 




LAW FIRM RECEIVES 
MONEY FROM 
CLIENT 


144 




LAW FIRM SENDS 

PAYMENT TO 
CENTRAL OFFICE 



FIG. 1B 



210- 



ENTRY OF RLE NUMBER AND/OR OTHER 
IDENTIFICATION INFO. AND REQUESTED 
AMOUNT INTO REMOTE WORKSTATION 



212-f 



WORKSTATION ISSUES AUTHORIZATION 
COOE FOR DEBIT OF REQUESTED 
AMOUNT FROM DEPOSIT ACCOUNT 



213-1 



214 
__L- 



T 



TRANSMITTAL INCLUDING AUTHORIZATION 
CODE SENT TO EPO/PCT 
(DEPOSIT ACCOUNT AUTHORIZATION) 



EPO/PCT RECEIVES 
TRANSMITTAL AND DEBITS 
DEPOSIT ACCOUNT 



220 
1 



CENTRAL OFFICE 
DEPOSITS MONEY 
IN ACCOUNT OR 
OTHERWISE INSURE 
ADEQUATE FUNOS 
PRESENT 



226 
-A 




INFORMATION REGARDING 
AUTHORIZATION UPLOADED 
TO CENTRAL OFFICE BY WS 



218- 



ELECTRONIC INVOICE GENERATED 
AND TRANSMITTED TO LAW FIRM 
ACCOUNTING SYSTEM; PAPER 
INVOICE ALSO GENERATED 
BY WORKSTATION 



CENTRAL OFFICE RECEIVES 
MONTHLY STATEMENT OF 
ACCOUNT DE8ITS 
IDENTIFIED BY 
AUTHORIZATION CODE 




CENTRAL OFFICE RECONCILES 

MONTHLY STATEMENT WITH 
INFORMATION UPLOADED BY WS 



FIG. 2A 



I 



0. 
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CENTRAL OFFICE 
SENDS BILL TO 
LAW FIRM FOR 
MONEY LOANED 
TO CLIENTS 



235 



8ILL DUE 
IN 90 DAYS OR 
OTHER PERIOD 



246 



CENTRAL OFFICE 
RECEIVES CLIENT'S 
PAYMENT FROM 
LAW FIRM 



232 
_i 



EXAMINE 
SITUATION AND 
CORRECT 
ERRORS 



® 



238 



SEND INVOICE 
TO CLIENT (BY 

LAW FIRM) AT 
END OF MONTH 
OR OTHER PERIOD 



240 
i 




INVOICE DUE 
IN 30 DAYS OR 
OTHER PERIOD 


242 




LAW FIRM RECEIVES 
MONEY FROM 
CLIENT 


244 




LAW FIRM SENDS 

PAYMENT TO 
CENTRAL OFFICE 



FIG. 2B 
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ENTRY OF FILE NUMBER AND/OR OTHER 
310 J IDENTIFICATION INFO, AND AMOUNT FOR 
CHECK, INTO REMOTE WORKSTATION 
AT LAW FIRM 



WORKSTATION ELECTRONICALLY 
311 J CONTACTS CENTRAL OFFICE FOR 
CONFIRMATION/APPROVAL 



TO STEP 
120 OR 220 



TO STEP 
144 OR 214 



312H" 



313- 



WORKSTATION ISSUES CHECK 
OR AUTHORIZATION CODE 



CODE OR CHECK SENT 
TO PATENT AGENCY 




TO STEP 
122 OR 222 



FIG. 3 
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410 



LAW FIRM 



418 
_J 



ACCOUNTING/ 
BILLING 
SYSTEM 



^422 



CHECK 
PRINTING/ 
AUTH. CODE 
SYSTEM 



—} — 

416 



434 



420 



412 



PATENT 
AND 
TRADEMARK 
PAYMENT 
FEE SYSTEM 



432 - 



424 



426 



PATENT 
AGENCY 



428 



414 



430 
s_ 



ACCOUNT 



PATENT AGENCY 
OR FINANCIAL 
INSTITUTION 



FIG. 4 
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5 Number) | j New j| Edit || Delete || Exit j 


Client Nome: | Test #3 1 
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Setup [PtfmJCIient] . Record: 3/4 Record Unlocked | ||NUM|| | a 


■ 

n 

i 


File Edit View lopls Program Window Help 


tn 

"c 

4> 

O 

□ 


c 
a 
CL 


o 

X) 

o 

tO 


'en* 
X) 


a 
T3 

O 




















| Q PTO Manoqement Company 


c_> 

c 
o 

Q_ 


CD 

c 
o 

CL 


< 

o 

CL 


£ 
o 


PO 

~co 
a> 
h— 


Test Client #2 | 


O 

cx 

o 
o 
cr 

aT 

e 

<c 




















1 Reference Number I 


r*- 

CD 
CT) 
O 

o 


oo 
cx> 
cn 
o 
o 


CD 
CT> 
CD 
O 

o 




















Search for Reference 



Page 68 oi 88 

















¥ 














1 
















































id 








Company 




Select Printer 










i 
{ 
{ 

I 






-»-» 














1 






c 

<L> 














CSJ 






TO Managenr 








1 




n Window Help 




to 




Menu 






• 
j 


Pompon) 


o 

1 


CL 




Client 




Setup 






\ 

\ 


"c 
<D 
E 

<u 
CP 

a 
c 


t View lools 














\ 

[ 

3 


O 
i — 


LU| 










( 


a. 
0 


QJ 













Page 70 of 88 



2 

B|3ip| 



(V 

o 
a 

J2 
o 
021 

O 

o 
o 

<c 

CD 



2 



3) 



g 



o 

£Z 



Fage71 of 88 




Page 72 ol 88 



i 



>! 



CL. 

3» o 



: o 
• j— 

ZD 
O ^ 

o 

s « 

O 

o 

a 

|2 
<!: 

CD O 







a> 






o 






c 


all 




o 









CD 



Page 73 of 88 




o 


cn 
O 


CM 

CM 


CM 


o 

CN 


oo 
o 


cn 






CO 


r— 




lo 


in 


O 


O 


O 


lO 


O 


lO 


O 


o 
to 


O 


LO 




Old 


PTO 


:ount 


:ount] 


:ount ] 


Old 


:ount | 


PTO 


:ount| 


pro 


:ount 


PTO | 




CO* 

r> 


U.S. 


it Act 


it Ac( 


it Act 


U.S. 


it Act 


U.S. 


it Act 


CO 


it Act 


U.S. 




for 


for 


sot 


sot 


eo 
o 


for 


CO 

o 


for 


CO 

O 


for 


to 
O 


for 




Checks 


Checks 


EPO Dep 


EPO Dec 


EPO Dei 


Checks 


F.P0 Dep 


Checks 


CL 
CJ 

o 
o 

CL 
UJ 


Checks 


EPO Dep 


Checks 




2 


i 


PTFM 


FM 


2 

u_ 


FM 


2 
u. 


2 
u_ 


2 
U- 


FM 


2 
u. 


2 

u_ 




PT 




i — 

Q_ 


id! 


Id 


|PT 


iPT 


CL 


:PT 


PT 


PT 




OL 


PM 


PM 


PM 


PM 


PM 


2 
Q. 


2 

CL 


AM 


AM 


PM 


2 
0_ 




<• 


o 

Csl 


tO 

o 


CO 
«d- 


CM 


r- 
o 


cn 


r— 

lO 


rO 
O 


lO 

o 




lO 
tO 




s 


rO 
rO 


CM. 


rO 

CN 


cn 

CM 


cn 

CM 


O 


cn 
o 


fO 
fO 




cb 

LO 


tO 




o 


O 


ro 
O 


fO 
O 


o 


o 


O 


o 






CM 

o 


CM 

o 




r-» 
en 


r*. 
m 


r*» 
cn 


r- 
cn 




r-» 


r*» 


r-- 


r-» 


r*. 


r-- 


r*- 




CD 


cn 


cn 


cn 


cn 
cn 


cn 
cn 


cn 
cn 


cn 
cn 


cn 
cn 


Cn 
cn 


cn 

CT> 


cn 
cn 




m 


LO 


LO 


lO 


iO 


iO 


tO 


iO 


CM 


r-- 

CM 


■^r 

CM 


m- 

CM 




o 


o 


r^" 
O 


r^" 
o 


r-. 
o 


o 


r>» 
o 


o 


LO 

o 


CO 

O 


CO 

o 


to 

O 




T3 
(D 


T3 


<L> 


~o 
o> 


TP 


•o 

<D 


QJ 


-o 
o> 


-a 
<u 


TD 
<U 


-o 

o 


-o 

CD 




O 
CL 


port 


o 

Q_ 


O 
cl. 


o 

CL 


O 
CL 


O 

CL. 


o 
a 


o 

CL. 


O 
CL. 


M 

O 
CL 


o 

Q. 




X 
UJ 


X 
UJ 


X 
UJ 


LO 


X 

UJ 


X 
UJ 


UJ 


X 
UJ 


X 
UJ 


X 
UJ 


X 

UJ 


X 
UJ 








jotion 


jotion 


zation 




motion] 




motion] 




rotion| 






Check 


| Check 


o 

1 


| Authori; 


| Authori; 


| Check 


| Authori; 


(Check 


| Authori; 


1 Check 


| Authori; 


[Check 


V 



6 



6 



July 22, 1997 Payee: U.S. Patent k Trademark Office 

Fee Code: 101/201 Basic Filing Fee-Utility 
Client Number. 00997 
Matter Number: xx« 

Note: This requires special attention. 



July 22, 1997 $ 2.000.0 

Two Thousand AND 0/1 00 DOLLARS 
U.S, Potent k Trademark Office 



no. 18 


PTO Management Company Invoice 

Invoice Oate: Juty 22, 1997 


Item: 

Check Number: 1511 
From Account: 

58 -67-9785 - PTFU Checks for U.S. PTO 
Request by: 

8rian Lorson on: 07/22/1997 12:53:16 
Client Number 00997 Matter Number xxxx 
Note: This requires special attention. 




Check Amount: 

Tee: 


t 2,000.0 
$ 118.75 


Total Due By 09/20/1997: 


$ 2,118.75 


Discounted Total Due If Paid By 08/11/1997: 
Discounted Total Due If Paid By 08/11/1997: 


$ 2.029.69 
$ 2,059.38- 


FIG. 19 



Deposit Account Authorization 


PTFM EPO Deposit Account 


. Account Number: XYZ234784 


Authorization Number: aWK00O2l023 




Date Fee Cede 


Check Amount 


July 22, 1997 sdhfsfd 


$ mo 


Payee: Europeon Patent Office 




Requested by: Brion Larson 


on: 07/22/1997 12:44:18 


Client Number 00999 




Matter Number: sfgs 


Fee Assessed: $ 6.75 



FIG. 20 



PTO Management Company Invoice 

Invoice Date: July 22, 1997 


Item: 






Authorization Number: SLWKOQ021023 




From Account: 






XYZ234784 - PTFM EPO Dep 


asit Account 




Request by: 






Brian Larson 


on: 07/22/1997 12:53:16 




Client Number 00999 


Matter Number xxxx 






Authorization Amount: 


$ 300.0 




Fee: 


\ 6.75 




Total Due By 08/21/1997: 


$ 306.75 


FIG. 21 
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Database: PTFM 



Structure 


for table: 


C : \PMCSOURCE\ACCOUNT . DBF 


Number of 


data records : 


9 




Date of last update: 


07/15/1997 




Code Page: 


1252 




Field 


Field Name 


Type 






Width 


Dec Index Collate 


Nulls 


1 


AC CODE 


Character 






8 


Asc Machine 


No 


2 


AC NAME 


Character 






30 


Asc Machine 


No 


3 


AC CLIENTNUM. . 


Character 






10 




No 


4 


AC CLIENTNAM. . 


Character 






50 




No 


5 


AC ACCOUNTNU. . 


Character 






20 




No 


6 


AC ACCOUNTTY. . 


Character 






18 




No 


7 


AC BALANCE 


Numeric 






12 


2 


No 


8 


AC NEXTCHECK 


Numeric 






10 




No 


** Total ** 








159 






Structure 


for table: 


C : \PMCSOURCE\ACCTTYPE . DBF 


Number of 


data records: 


9 





Date of last update: 
Memo file block size: 
Code Page: 

Field Field Name 



Width 
AT_TYPE 
18 

ATJCEEPBALAN. 
1 

ATJTRANSTYPE . , 
4 

AT_PAYEES 
4 

AT_CANEXCE ED 
1 

AT_CHARGEFEE 
1 



06/10/1997 
64 

1252 

Type 

Dec Index Collate 

Character 

Logical 

Memo 

Memo 

Logical 

Logical 



Nulls 
No 
No 
No 
No 
No 
No 



FIG. 24 A 



7 AT_CHECKONLY 

1 

8 AT_AUTHORIZA. . 

1 

9 AT_USPTOCODE 

1 

10 AT_EPOCODE 

1 

11 AT_EXPORTTOP . . 

1 

** Total ** 

35 



Logical 






No 


Logical 






No 


Logical 






No 


Logical 






No 


Logical 






No 



Structure for table: 
Number of data records: 
Date of last update: 
Code Page: 



Field 



** Total ** 



Field Name 

Width 
CL_CLIENTNUM. 
10 

CL_NAME 
50 

CL_PLAN 
20 

81 



Dec 



C : \PMCSOURCE\CLIENT . DBF 



06/20/1997 
1252 

Type 
Index Collate 
Character 



Character 



Character 



Nulls 
No 
No 
No 



Structure for table: C:\PMCSOURCE\DETAIL.DBF 

Number of data records: 69 
Date of last update: 07/15/1997 

Memo file block size: 64 

Code Page: 1252 



Field 


Field Name 




Type 






Width 


Dec 


Index Collate 


Nulls 


1 


DE CODE 
8 




Character 


No 


2 


DE CLIENTNUM. 
20 




Character 


NO 


3 


DE MATTERNUM . 
20 




Character 


NO 


4 


DE DATETIME 
8 




DateTime 


No 


5 


DE TRANSACT I . 
3 




Character 


No 



FIG. 24B 



6 


DE_PAYEE 
50 


Character 


No 


7 


DE_PTOCODE 
75 


Character 


No 


8 


DE_AMOUNT 


Numeric 


No 


9 


DE_PLUSMINUS 
2 


Numeric 


No 


10 


DEJtfHO 

ZD 


Character 


No 


11 


DE_L0CAT I ON 
i n 

1U 


Character 


No 


12 


DE_CHECKNUMB. . 

T ft 
J.U 


Numeric 


No 


13 


DE__NOTES 

A 
H. 


Memo 


No 


14 


DE_FEE1 

o 2, 


Numeric 


No 


15 


DE_DATEDUE1 

Q 

o 


Date 


No 


16 


DE_FEE2 

Q O 


Numeric 


No 


17 


DE_DATEDUE2 

Q 
O 


Date 


No 


18 


DE FEE3 

8 2 


Numeric 


No 


19 


DE DATEDUE3 
8 


Date 


No 


20 


DE STATUS 
17 


Character 


No 


21 


DE SELECTED 
1 


Logical 


No 


22 


DE PRINTDATE . . 
8 


DateTime 


No 


23 


DE EXPORTDAT . . 
8 


DateTime 


No 



** Total ** 

328 



Structure for table: C:\PMCSOURCE\PT0CODE.DBF 
Number of data records: 149 
Date of last update: 05/16/1997 
Code Page: 1252 

Field Field Name Type 

Width Dec Index Collate Nulls 



PIG. 24C 



1 PT_CODE 

75 

2 PTJJSPTOCODE 

1 

** Total ** 

77 

Structure for table: 
Number of data records: 
Date of last update: 
Code Page: 

Field Field Name 
Width 

1 RA_PLAN 

20 

2 RA_LOWERLIMI . . 

8 

3 RA_UPPERLIMI . . 

8 

4 RA_DAYSDUE1 

3 

5 RA_ AMOUNT 1 

8 

6 RA_DAYS DUE 2 

3 

7 RA_AM0UNT2 

8 

8 RA_DA Y S DUE 3 

3 

9 RA_AM0UNT3 

8 

10 RA_NOTALLOWE. . 
1 

** Total ** 

71 



Structure for table: 
Number of data records: 
Date of last update: 
Memo file block size: 
Code Page: 

Field Field Name 
Width 
1 SU_ITEM 
20 



Character 

No 

Logical 

No 



C : \PMCSOURCE\RATE . DBF 

48 

06/27/1997 
1252 





Type 




Dec 


Index Collate 


Nulls 




Character 








No 




Numeric 




2 




No 




Numeric 




2 




No 




Numeric 








No 




Numeric 




2 




No 




Numeric 








No 




Numeric 




2 




No 




Numeric 








No 




Numeric 




2 




No 




Logical 








No 



C : \PMCSOURCE\SETUP . DBF 

10 

07/22/1997 
64 

1252 

Type 

Dec Index Collate Nulls 

Character 

No 



FIG. 24D 
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2 SUJtfUMBER 

10 

3 SU_DATA 

4 

** Total ** 

35 



Numeric 
Memo 



No 
No 



Structure for table: 
Number of data records: 
Date of last update: 
Code Page: 



C : \PMCSOURCE\TRANTYPE . DBF 



06/10/1997 
1252 



Field 


Field Name 


Type 




i 




Width Dec 


Index Collate 


Nulls 




1 


TR TRANSACT I . . 
3 


Character 


No 


> 


2 


TR DESCRIPTI . . 
20 


Character 


No 


\ 


3 


TR PLUSMINUS 


Numeric 




} 




2 




No 


j- 


4 


TR CHKACCTVA . . 
1 


Logical 


No 




5 


TR AUTACCTVA . . 
1 


Logical 


No 




6 


TR CHKLIMITE . . 


Logical 




i 




1 




No 


7 


TR AUTLIMITE. . 


Logical 








1 




No 




8 


TR CHARGEFEE 


Logical 




| 




1 




No 


Total 


** 

31 









Structure for table : 
Number of data records : 
Date of last update : 
Code Page: 

Field Field Name 
Width 

1 US_ID 

20 

2 US_LAST 

15 

3 US_FIRST 

15 

4 US^PASSWORD 

15 



C : \PMCSOURCE\USER . DBF 



05/02/1997 
1252 

Type 

Dec Index Collate 

Character 

Character 

Character 

Character 



Nulls 
No 
No 
No 
NO 



FIG. 24E 
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5 


us_ 


CHECKBALA . 






1 


6 


us_ 


_VIEWREQUE . 
1 


7 


us_ 


CREATEREQ . 
1 


8 


US- 


_CANCELREQ . 






1 


9 


US. 


MODI FYACC . 






' 1 


10 


us. 


PRINTREPO. 






1 


11 


us 


EXTRACTDA . 



1 

** Total ** 



Logical 






No 


Logical 






NO 


Logical 






No 


Logical 






No 


Logical 






No 


Logical 






No 


Logical 






No 



Program File: MAIN . PRG 

_SCREEN. Width =633 
_SCREEN. Height =418 
_SCREEN . I con = " opening . i co " 

SET CENTURY ON 

SET BELL OFF 

SET CONFIRM ON 

SET DELETED ON 

SET MULTILOCKS ON 

SET PROCEDURE TO MAIN . PRG 

OPEN DATABASE PTFM 

PUBLIC frmMenu, gcLoginID, gcFullName, gcLocation, gcProgName 

USE Setup 

SET ORDER TO Item 

IF SEEK { " PROGNAME" ) 

gcProgName = TRIM (Setup. SU_Data) 

_SCREEN. Caption = gcProgName 

ELSE 

gcProgName = "Patent & Trademark Fee Management" 

ENDIF 

IF SEEK ( " LOGINID n ) 

gcLoginID - TRIM(Setup.SU_Data) 

ELSE 

gcLoginID ■ "Unknown" 
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END IF 



IF SEEK ( n FULLNAME " ) 

gcFullName = TRIM (Setup . SU__Data) 

ELSE 

gcFullName = "Unknown" 

ENDIF 

IF SEEK ("LOCATION") 

gcLocation = TRIM (Setup. SU_Data) 

ELSE 

gcLocation » "Unknown" 

ENDIF 

CLOSE TABLES ALL 

DO FORM Menu NAME frmMenu 

READ EVENTS 

************************************* 

FUNCTION GetDueDate 

* Finds the Monday which is the specified number of weeks after 

* the date the request was made. If the request was made on a 

* Monday, do not count that Monday. 
LPARAMETERS ldDate, InNumMondays 

Local InMondayCnt 

InMondayCnt ■ 0 

DO WHILE InMondayCnt < InNumMondays 
ldDate = ldDate +1 
IF DOW (ldDate, 2) « 1 

InMondayCnt = InMondayCnt + 1 

ENDIF 

ENDDO 

RETURN ldDate 

*************************** ********** 
FUNCTION TextDollar 

PARAMETERS nNumber 

LOCAL InDollars, InCents 

InDollars - INT (nNumber) 

InCents » (nNumber - InDollars) * 100 
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RETURN TextNumeric (lnDollars)+"AND n +STR(lnCents, 2) +»/100 
DOLLARS" 

************************************* 

FUNCTION TextNumeric 

PARAMETERS nNumber j 

i 

s 

LOCAL lcString, InWorkNumber 

InWorkNumber = nNumber 
lcString » " n 

IF InWorkNumber >= 1000000 j 

lcString = TextNumeric (lnWorkNumber/1000000) + "Million " j 

InWorkNumber = InWorkNumber - { 

(INT (InWorkNumber/ 10 00000) *1000000) I 

ENDIF I 

IF InWorkNumber >= 1000 j 

lcString = lcString + TextNumeric (InWorkNumber/ 1000) + \ 

"Thousand " j 

InWorkNumber = InWorkNumber - (INT (InWorkNumber/ 1000) * 1000) i 

ENDiF | 

DO CASE } 

CASE InWorkNumber >= 900 \ 

lcString = lcString + "Nine Hundred " \ 

InWorkNumber = InWorkNumber - 900 j 

CASE InWorkNumber >= 800 \ 

lcString ■ lcS.tring + "Eight Hundred " \ 

InWorkNumber = InWorkNumber - 800 \ 

CASE InWorkNumber >= 700 I 

lcString = lcString + "Seven Hundred " j 

InWorkNumber = InWorkNumber - 700 s 

CASE InWorkNumber >= 600 \ 

lcString = lcString + "Six Hundred » | 

InWorkNumber = InWorkNumber - 600 | 

CASE InWorkNumber >= 500 \ 

lcString = lcString + "Five Hundred " \ 
InWorkNumber = InWorkNumber - 500 

CASE InWorkNumber >= 400 

lcString = lcString + "Four Hundred " 

InWorkNumber = InWorkNumber - 400 ',' 

CASE InWorkNumber >= 300 jj 

lcString a lcString + "Three Hundred " I 

InWorkNumber = InWorkNumber - 300 * 

CASE InWorkNumber >= 200 s- 
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lcString = IcString + "Two Hundred 
InWorkNumber = InWorkNumber - 200 

CASE InWorkNumber >= 100 

lcString = IcString + "One Hundred 
InWorkNumber = InWorkNumber - 100 

ENDCASE 

DO CASE 

CASE InWorkNumber >= 90 

lcString = lcString + "Ninety n 
InWorkNumber = InWorkNumber - 90 

CASE InWorkNumber >= 80 

lcString = IcString + "Eighty " 
InWorkNumber = InWorkNumber - 80 

CASE InWorkNumber >= 70 

lcString = lcString + "Seventy " 
InWorkNumber = InWorkNumber - 70 

CASE InWorkNumber >= 60 

lcString = lcString + "Sixty " 
InWorkNumber = InWorkNumber - 60 

CASE InWorkNumber >= 50 

lcString = lcString + "Fifty n 
InWorkNumber = InWorkNumber - 50 

CASE InWorkNumber >« 40 

IcString = lcString + "Forty " 
InWorkNumber = InWorkNumber - 40 

CASE InWorkNumber >= 30 

lcString = lcString + "Thirty " 
InWorkNumber = InWorkNumber - 30 

CASE InWorkNumber >=> 20 

lcString = lcString + "Twenty " 
InWorkNumber = InWorkNumber - 20 

CASE InWorkNumber >= 19 

lcString = IcString + "Nineteen " 
InWorkNumber = InWorkNumber - 19 

CASE InWorkNumber >= 18 

lcString = lcString + "Eighteen " 
InWorkNumber = InWorkNumber - 18 

CASE InWorkNumber >= 17 

lcString « lcString + "Seventeen " 
InWorkNumber = InWorkNumber - 17 

CASE InWorkNumber >= 16 

lcString = lcString + "Sixteen " 
InWorkNumber = InWorkNumber - 16 . 

CASE InWorkNumber >= 15 

lcString = lcString + "Fifteen " 
InWorkNumber = InWorkNumber - 15 
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CASE InWorkNumber >= 14 

lcString = lcString + "Fourteen " 

InWorkNumber = InWorkNumber - 14 
CASE InWorkNumber >= 13 

lcString » lcString + "Thirteen n 

InWorkNumber = InWorkNumber - 13 
CASE InWorkNumber >= 12 

lcString » lcString + "Twelve " 

InWorkNumber = InWorkNumber - 12 
CASE InWorkNumber >= 11 

lcString = lcString + "Eleven " 

InWorkNumber = InWorkNumber - 11 
CASE InWorkNumber >= 10 

lcString = lcString + "Ten " 

InWorkNumber = InWorkNumber - 10 
END CASE 

DO CASE 

CASE InWorkNumber >= 9 

lcString ■ lcString + "Nine " 

InWorkNumber ■ InWorkNumber - 9 
CASE InWorkNumber >= 8 

lcString = lcString + "Eight " 

InWorkNumber = InWorkNumber - 8 
CASE InWorkNumber >= 7 \ 

lcString = lcString + "Seven " j 

InWorkNumber = InWorkNumber - 7 \ 
CASE InWorkNumber >= 6 \ 

lcString = lcString + "Six " 

InWorkNumber = InWorkNumber - 6 ': 
CASE InWorkNumber >= 5 \ 

lcString = lcString + "Five n \ 

InWorkNumber = InWorkNumber - 5 i 
CASE InWorkNumber >= 4 

lcString = lcString + "Four ■ 

InWorkNumber = InWorkNumber - 4 
CASE InWorkNumber >= 3 

lcString = lcString + "Three " 

InWorkNumber = InWorkNumber - 3 
CASE InWorkNumber >= 2 

lcString = lcString + "Two " 

InWorkNumber = InWorkNumber - 2 
CASE InWorkNumber >= 1 

lcString = lcString + "One " 

InWorkNumber = InWorkNumber - 1 
END CASE 
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IF EMPTY (lcSt ring) 

IcString « "No " 

ENDIF 

RETURN IcString 
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